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STACP 16-Se 1984 01:34: VAX-11 Bliss-32 V4.0-742 P 1 
14 Sep 1982 134g: $8 DISKSVMSMASTER:CMOUNT.SRCISTACP.B32;2 (1) 
NGUAGE (BLISS32), 
EN = *VOG-001* 
= 


MODULE STACP ( ‘ 
Dd 


~~ 


BEGIN 


4 
ESSEC SILI TTS TTT TTT TTT TTT TT TTC irri rir ricci iii ii iii iti tii isi itiiiiiiiey 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
4 ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'* CORPORATION. * 

® 

® 

® 

*® 

® 

® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 '4+ 
3 ' 
; FACILITY: MOUNT Utility Structure Level 1 
3 : ABSTRACT: 
3 i This routine hooks up the VCB to the UCB being mounted, finds or 
: ; creates the AQB and starts up the ACP. 
9 904 ; ENVIRONMENT : 
g 004 i STARLET operating system, including privileged system services 
004 ! and internal exec routines. 
4 0044 ‘ 
5 045 ben 
49 BF 1 | 
ri 33 AUTHOR: Andrew C. Goldstein, CREATION DATE: 19-Oct-1977 15:43 
50 9050 i MODIFIED BY: 
51 051 ! 
2§ 0036 ! v04-001 HHO0S8 Hai Huang 15; Sepa t9es 
5 05 : pooper ly mark up the UCB if the MOUNT Q10 fails. This 
33 bee } yitt cause $DALLOC_DEVS to properly handle the device 
! ock. 
6 05 ! 
57 O87 ! v03-021 HHO04S Hai Huang 10-Aug-1984 
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; 1! Prevent r condition betw mn mount and dismount 

: 33 Me : H (i.e. HHOOSs) for Files-11 vel 1 volumes. " 

: 61 bei 1 i v03-020 CDS0009 Christian D. Saether 25-Jul-1984 

: ? Goes : } Fix name of sysgen parameter for fourth pool. 

: 64 064 1! V03-019 HHO041 24-Jul-1984 

: o 3292 : } ceases REQUIRE tape POASL1B.08)IMOUNTASC. 8 31 

: 67 0067 1 v03-018 cps0008 Christian D. Saether 15-July-1984 

: 68 0068 1! Raise minimum requirement for header cache to 3 buffers. 
: 3 4534 } : Add fourth pool to buffer cache for directory index. 
ona 0071 1! v03-017 HHO0029 Hai Huang 29-Jun-1984 

hee Bore 1! Enhance the block cache algorithm to retry with a reduced 
; it Oot 7 : cache size if the initial cache allocation fails. 

: 75 0075 1! V03-016 HHO002S Hai Huang 21-Jun-1984 

: 76 0076 1! so the race condita between mount and dismount 

: 77 0077 1! Menkes nbs I the device as non-private mounts 

: ee th ’ before setting device-mounted bi* 

: 80 0080 1! v03-015 HHO004 Hai H ang 13-Mar-1984 

; 81 0081 1! Fix truncation aon x" roduced by cluster-wide 

: : ops : mount support. 

: 84 0084 1! v03-014 CDS0007 Christian D. Saether 33-Mar-1984 

; HF bose ; Set CLF_UNLOCKDB prior to allocating buffer cache. 

: 87 0087 1! v03-013 CDS0006 Christian D. Saether 28-Feb-1984 

; 0088 1! Store F11BC$T_CACHENAME. Restrict size of block 

: 89 444 : H cache to 2°15=2 buffers total. 

: 9 0091 1: v03-012 cDS0005 Christian D. Saether 6-F eb-1984 

: 2 993 ’ Add support for xaqp block caches. 

: 94 0094 1! v03-011 CDS0004 Christian D. Saether Aug- 1983 

; 32 s'44 ! Change references to XQP to STORED_ CONTEXY CxQP). 

: 97 0097 1: v03-010 RASO180 Ron Schaefer 4=Aug-1983 

: 28 sits ' : Fix broken calls caused by changes in DISMNTSAR,. 

: 100 0100 1! V03-009 $1J56368 Steven T. Jeffreys, 27-May-1983 

: 101 19) 1! Fix /PROCESSOR= SAME: py BE bug. Return NOACPDEV to force 
; 1s 16 : } mount to abort rather than crash Later on. 

> 104 104 1! v03-008 $TJ50311 Steven 7. Jeffre 22-Feb-1983 

; 105 105 1! Explicitly assign a channel to t ; first volume of a 

: 196 196 : } ae volume set. 

: 108 $108 1: v03-007 Cu Hobbs 19-Feb-1983 

3; 109 0109 1! change’ ° SCREPRC a A so that we change the ertonsed id revurned 
; 110 110 1! SCREPRC to the internal pid needed in the AQB. lso ch ace 
: 61211 7. 2a 4 LPRC and S$WAKE to use the new pid. Create a new local ACP_PID 
: 136 \i¢ : } which contains the EPID. 

: 114 114 1 v03-006 CDS0003 Christian D. Saether 12-Jan-1983 


| 
| 
| 
| 
| 
| 
} 
| 
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tine 8 flag the AQB for the xqp as unique so non-xap 
mounts don't stumble onto it and use the xaqp when 
an acp is desired. 


v03-005 CDS0002 Christian D. Saether 6-Jan-1983 
The EXP$XQP translation is done in MOUNT_VOLUME now. 


v03-004 CDS0001 C Saether 18-Jul-1982 
= Put hooks in to allow —T testing of procedure based 
file system. To wit, if ods-2 and EXPSXQP translates, 
then ignore acp options such as unique, etc., and leave 
an AQB around with an ACPPID field of 6 to trigger a 
different ag mechanism in qio. Don't create an 
ACP either in that case. 


V03-003 ACG47812 Andrew C. Goldstein, 20-Jul-1982 18:52 
Supply explicit quotas in creating ACP mailbox 


v03-002 $TJ0313 Steven T. Jeffreys, 02-Jul-1982 
Fix ACP process quota List bug. 


v03-001 $TJ0253 Steven T. Jeffreys. 03-Apr-1982 
- Use the system process quota List when creating an ACP. 
- Use common 1/0 routines where possible. and make the 
use of event flags more robust. 
- Add ACP type code to ACP process name. 
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V02-004 $TJ0191 Steven T. Jeffreys, 02-Feb-1982 

Zero GLOBAL and OWN storage to guaranty restartablity. 
v02-003 DMW0007 David Micahel mateo 10-Jun-1981 

Use FIRST CHANNEL instead of CHANNEL, for tapes in the 

MOUNT QI0Q. 
VO2-002 pMw0005 David Michael wale 20-May-1981 

Changed debugging terminal from _TTB1: to ACPSDEBUG_TERMINAL 
v02-001 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 


Previous revision history moved to MOUNT.REV 
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LIBRARY SL SEL IORARY 1h 18,452": 
REQUIRE ‘SRC$:MOUDEF .B352'; 
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0690 

0691 1 FORWARD ROUTINE 

069 SETUP_BLOCKCACHE, 
69 ALLOCATE _PAGED; 


ee ee 


aries 
i 
| 
} 


i SIDE EFFECTS: 
! device characteristics altered, VCB hooked up to UCB, ACP started 
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STACP 16-5 Sep-1984 34: VAX-11 Bliss-32 V4.0-742 4 
04-001 Sep- i 1382 9}: 45: af DISKSVMSMASTER: CMOUNT.SRCISTACP.B32; 529 * 2) 
166 69% GLOBAL ROUTINE START_ACP (UCB, VCB, TYPE) : NOVALUE = | 
Fant; i | 
168 698 1 | FUNCTIONAL DESCRIPTION: | 
| 196 790 : This routine hooks up the VCB to the UCB being mounted, finds or 
7) f 1 creates the AQB and starts up the ACP. 
| 178 rO§ i | 
174 7 ' CALLING SEQUENCE: 
12? r 5 : START_ACP (ARG1, ARG2, ARG3) | 
179 ? - i INPUT PARAMETERS: 
178 708 ! ARG1: address of UCB 
179 709 ! ARG2: address of VCB 
130 4 ? } ARGS: type code of ACP wanted 
18¢ re i IMPLICIT INPUTS: | 
18 7 ' MOUNT parser database 
iz: 4 : } CHANNEL: I/0 channel assigned to device being mounted 
186 7 $ i QUTPUT PARAMETERS: 
18 nei; wwe | 
189 719 i IMPLICIT OUTPUTS: 
is Ge fe | 
19¢ 7 é i ROUTINE VALUE: | 
19 7 ! NONE 
194 724 ! 
195 725 ‘ 
196 726 ! 
197 727 ' 
198 728 : 
199 729 
00 730 
02 733 | 
88 38 | 
04 734 
05 4 5 | 
39 
738 
739 
740 
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MAP 

ucB : REF BBLOCK, ' address of UCB being mounted 

vcB : REF BBLOCK, ' address of VCB being mounted 

TYPE : BYTE; ! type code of aesired ACP 
09 LINKAGE 

L_CVT_DEVNAM = JSB (REGISTER = 0, REGISTER REGISTER = 5. 
09 3 REGISTER = 4: REGISTER = "y | 
19 ye NOTUSED (6,7,8,9,10,11), 
\f 74 10C_SEARCH = JSB (REGISTER = 4) 
1 74 NOPRESERV . ta. 99 
14 744 GLOBAL (A ACP_bEvite = 1); 
15 745 
1¢ 74 LABEL 
\ re ACP_SEARCH; ! main ACP search loop 
19 74 LITERAL 
20 750 TIMER_EFN = MOUNT_EFN + 1,! EFN for timer request 
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STAC 16-Sep-1984 01:34: VAX-11 Bliss-32 V4.0-742 
V04- 14-Sep-19 4 Obi zeihs DISKSVMSMASTER: CMOUNT. SRCJSTACP.B32; p39 
3 221 751 POL_LENGTH = 100, ! Size of local PQL L ength 
13 § 7 ¢ ! Note: PQL_ ENGI >= OL $¢ SYSPQLLEN+6 
3 7 HALF SECOND = 5000000 ! 1/2 second in 100 ngee n 
3 4 754 ACP_OIC = 1416 + , ! UIC to run ee under (1, 
3 5 755 mA COOK CHARLEN = 16, ! Length of mailbox characteristics buffer 
; § ? § BUFFER_LEN = 8 ' Length of termination message buffer 
A 7 PROCBUT LEN” = 16, ! maximum Length of ACP process name 
3 $ 4 3 F ILEBUF “CEN = 64; ! maximum Length of ACP file name 
3 0 760 LOCAL 
: 1 761 FIRST_CHANNEL, ' channel aqsigned to ist tape drive 
; ¢ 76 CREATE_ACP, ! ACP creation flag 
; 76 STATUS, enere service status value 
13 764 CLASS : BYTE, qv" ce class code for ACP sharing 
|é 5 0765 FILE_PREF : REF VECTOR C, pire ! address of ACP prefix string 
3 @ 0766 FILE_PREF_LEN, ' Length of ACP prefix string 
3 § 7 076? SWAP_FLAG ! ACP swap status flag 
: 238 0768 WORKING. SET, working set quota for ACP 
3 ay 0769 CP_PID local extended pid for created ACP process 
; 240 0770 ACP TYPE : VECTOR C2, BYTE), : type | gtr ine for ACP proc name 
3; 241 0771 ACP_UCB : REF BBLOCK, | UCB e used 
; tg 14h 4 RVT : REF BBLOCK, i address of disk RVT if multivolume 
s 26 gr AQB : REF BBLOCK, ; aceress of AQB to be used 
> 246 774 P : REF BBLOCK, gate er to chase AQB List 
; see 148 QUOTA_LIST : VECTOR CPQL _LENG H, BYTES; ! ACP quota ist 
; 267 0777 OWN 
; 248 0778 OWN_START : VECTOR (CO) ADDRESSING MODE (GENERAL), 
; 249 0779 2 Mark start of OWN storage 
; 250 0780 ACP termination buffer 
: 251 0781 MAILBOX_CHAR : BBLOCK CMALLBOK ACHARLENT ADORESSING MODE (GENERAL), 
$26 ores mai racteristics buffer 
; 078 MAILBOX_DESC : VECTOR (2) ADDRESSING. cnobe (GENERAL), 
: 254 th § mailbox Characteristics buffer descrip " 
; $2? 0785 TERM_BUFFER : VECTOR CTERM_ BUFFER -LEN BYTE ADDRESSING -MODE (GEN ERAL ‘ 
; 256 0786 2 P™ termination posse , buffer 
: fav 0787 2 PROC_NAME : VECTOR C2) AobRE SS ING RODE cen _ 
; 258 0788 im ¢ eich seter pr ocess name 
; 259 0789 PROCBUF : VECTOR cPRoceuF teh VE DBRESSING MMOD (GENERAL), 
; 260 0790 ng, bu er tein A Apres name 
; 2) 0791 FILE_NAME : VECTOR (2) ADDRESS NG GiMOBE. (6 
3 o¢ 8785 ing oe sey file 
; 26 79 F ILEBUF : VECTOR CF ILeBUF teh YTE) AD RESSING om (GENERAL) 
; 264 bo ng, ov uffer for ACP fil 
; 265 795 IO_STATUS : VECTOR (2) ADDRESS NG VMODE (GEN ERAL), 
; 6¢ o7 ! 1/0 statis block 
; 268 $798 ' the following is e descriptor for the terminal used 
; +4 0800 when debugging the ACP 
3; efi Hi TRANSBUF : VECTOR (16, BYTE] ADDRESSING_MODE (GENERAL) 
.. ar 0 TRANSDESC : VECTOR LONG] ADDRESSING-MODE (GENERAL) 
; 7? 0 OWN_END : VECTOR CO "ADORE $S1NG MODE (GENERAL); 
; Re ! Mark @nd of OWN storage 
. on $ LITERAL 
: a 080 OWN_LENGTH = OWN_END - OWN_START; 
| 
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EXTERNAL LITERAL 


PQLSC_SYSPQLLEN; ! System process quota List length 
! (without the List terminator) 
EXTERNAL 
CACHE STATUS, ! status of block cache allocation 
STOREB_CONTEXT : BITVECTOR, 
PHYS_NAME : VECTOR VOLATILE, 
' vector of ph yels al d ey'se descriptors 
DEVICE _CHAR : BBLOCK i DEVICE CHA ? TERISTIC F DEVICE BEING MOUNTED 
MOUNT OPTIONS : BITVECTOR, ' command options 
CLEANOP_FLAGS : BITVECTOR, ! cleanup action flags 
CHANNEL; ' channel assigned to device 
MAILBOX _ CHANNEL, ' channel number assigned to mailbox 
HOME BLOCK : BBLOCK, ! address of volume home block if disk 
ACP_STRING : VECTOR, ! string descriptor of ACP device or name 
REAC_RVT : REF BBLOCK, ! address of RVI used, if any 
REAL_AQB : REF Ber pte® eceress of AQB allocated 
REAL_wWCB : REF BBLOCK s of index file window 


addre 
Pal $B “SYSPQL =: BBLOCK ADDRESSING =MODE. (GENERAL) , 


syste 2 ocess quota List 
CTL$GL_PCB : REF BBLOCK noones +b aa M of hey oe 
IOCSGL_AQBLIST : REF BBLOCK noone SSG 6 MODE ete 
sthea 
EXESGL_FLAGS : BITVECTOR noonés$ Ne snOnk (ABSOLUTE), 


vasepares Longword 
ACP$GW_WORKSET : WORD ADDRESSING. mM bE 
is ACP working set 


ACP$GW_MAPCACHE : WORD ADDRESSING _RODE (ABSOLU 

isk ACP ait th “cache size 
ACPS$GW_HDRCACHE : WORD ADDRESSING _RODE (ABSOLU 

isk ACP wohl cache size 
ACPS$GW_DIRCACHE : WORD ADDRESSING MODE (ABSOLUTE), 

isk ACP directory ca cache size 
ACPS$GB_SWAPFLGS : BITVECTOR ADDRESSING MODE (ABSO 

P Swap mode flags. 
ACPS$GB_BASEPRIO : BYTE nODRESSING -MODE (ABSOLUTE); 

ACP base priority 


EXTERNAL LITERAL 
EXESV_MULTACP =: UNSIGNED (6), ! multiple ACP bit in system flags 
EXESV_INIT : UNSIGNED (6), ! ACP initialized bit in system flags 
ACP$V_SWAP : UNSIGNED (6), ! swap /SYSTEM (etc.) ACP's 
ACPS$V_SWAPGRP =: UNSIGNED (6), ! swap /GROUP ACP's 
ACPS$V_SWAPPRV : UNSIGNED (0), ! swap private ACP's 
ACPS$SV-SWAPMAG : UNSIGNED (6); ! swap magtape ACP's 

EXTERNAL ROUTINE 
LOCK_10DB : ADDRESSING_MODE {LONG RELATIVE), 

lock I/O database mutex 

UNLOCK_IODB : ADDRESSING_MODE (PONG RELATIVE), 


' unlock the above 

allocate systen dynamic memory 
deallocate sam 

set data check xis tenes for volume 


ALLOCATE_MEM 
DEALLOCATE MEM, 
SET_DATACHECK, 


<n” 
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v04-001 Sep- D 

H 5 65 IOCSCVT_DEVNAM : L_CVT_DEVNAM ADDRESSING _MODE (ABSOLUTE), 

; 68 ! get ful 4 expanded device name 
3 6 IOCSSEARCHDEV : IOC_SEARCH ADDRESSING MODE (ABSOLUTE); 

3 $ 508 ' search 1/0 database for device 
: 340 890 

; «(341 871 ! Intialize the OWN storage. Most of it will be zeroed, but some 

; “ ore locations must be set nonzero. 

: 344 Bp CHSFILL (0, OWN_LENGTH, OWN START); 

; 345 875 2 MAILBOX_DESC fo = MAILBOX_CHARLEN: 

3 rk] 578 MAILBOX DESs 1]. = MAILBOX_CHAR; 

s 34 7 ANSDESC } = 16; 

3 48 bare RANSDESC (1) = TRANSBUF; 

; 349 087 CACHE_STATUS = 1; 

: 32) Ope; 5 

: 2 rtd i Establish whether we are crpating an ACP. This is controlled 44 

3 3 088 ! the /PROCESSOR qualifier; the default is controlled by EXESV_MULTACP 

: 354 0884 ! in the syeten mask: either a common ACP for each type, or one ACP per 
3 ri Bane device class per ACP type. 

: 357 088 i An outer loop exists around this code to handle the situation where two 
; 358 0888 ! users et tenet to create the same common ACP (detected by seeing the 

3 59 0889 ! AQBSV_CREATING bit in the found AQB). When this happens we simply wait 
; 360 890 !' a while and try all over. If the condition sticks for 30 seconds we 

; 1 0891 ! give up on grounds of a sick I/0 database. 

: 308 ones 5 

: 4 0894 UCBCUCBSL_VCB) = .VCB; ! set up VCB pointer in UCB 

: 366 089 ACP_SEARCH: BEGIN 

3 67 089 DECR J FROM 60 TO 1 DO 

aan 

: $70 0900 4 LOCK.1008 (); 

: i $4: ? CREATE_ACP = 0; ! assume no ACP creation 

: 7 0904 4 CLASS = -BBLOCKC..UCBCUCB$L_DDB], DDB$B_ACPCLASS); 

: 76 $95 4 ! If this volume is part of a disk volume set and another volume is already 
; 77 907 & ' mounted, use the ACP of that volume. 

ig a8 

: 380 910 4 IF NOT .BBLOCK CUCBCUCBSL DEVCHAR] DEV$v_Sap) 

; 381 911 4 AND .REAL_RVT NEQ 0 AND .REAL_RVTCARVTSW_REFC) NEQ 1 

3 ae aig 4 THEN 

; 38 Riz 2 BEGIN 

; 8s 915 6 INCR J FROM 1 TO -REAL_RVTCRVTSB_NVOLS) 

: 7 317 5 BEGIN 

3 4 | 7 CP_UCB = .VECTOR CREAL_RVTICRVT$L_UCBLSTJ, .J-1); 

; 389 919 7 IF 7ACP_UCB NEQ 0 AND .ACP_UCB NEG .UCB 

; 390 359 7 THEN EXTTLOOP 0; 

; 5391 921 7 END 


<0 
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: 39 9 ) 

; 38 3 § THEN BUG_CHECK (NOTUCBRVT, FATAL, ‘Failed to find UCB pointer in RVT'); 
: 395 925 IF NOT .BBLOCK CACP_UCBCUCBSL_DEVCHAR], DEV$V_MNTJ 

: 96 i $ THEN BUG_CHECK (NOTOCBRVT, FATAL, "Bad UCB pointer in RVT'); 

: 398 9 é AQB = .BBLOCK C.ACP UcBLUCBSL VCB], VCBSL_AQB); 

: 399 9 IF .AQBCAQB$SB _ACPTYPE] NEQ .TYP 

: 400 930 THEN BUG_CHECR (NOTUCBRVT, FATAL, ‘Bad UCB pointer in RVT'); 

; 401 09 1 END 

: 408 5 If a unique ACP is explicitly requested, set to create one. 

: 405 935 5° 

: 406 09 6 4 ELSE IF .MOUNT OPTIONSCOPT_UNIQUEACP] OR .MOUNT_OPTIONSCOPT_FILEACP) 
: 407 09 i 4 THEN CREATE_ACP = 1 

: 409 0939 4! If the SAME qualifier was specified, find the device given and make sure 
; 4610 0940 4! it in fact has an ACP. 

: 813 0942 6. 

; 418 $908 4 ELSE IF .MOUNT_OPTIONSCOPT_SAMEACP) 

> 414 0944 4 THEN 

Pa ie Ba ts 

: 417 0947 6 GLOBAL REGISTER ACP DEVICE = 1; 

> 418 0948 6 ACP_DEVICE = ACP_STRINGLO); 

: 419 0949 6 STATUS = IOCSSEARCHDEV (.CTLSGL_PCB); 

; £20 0930 § ACP _UCB = ,ACP_DEVICE; 

; 4¢ 0956 3 IF NOT .STATUS 

: (52 $982 b THEN eGIN 

> 425 0955 6 UNLOCK_I0DB (); 

; 426 0936 $ ERR EXTT (MOUNS_NOACPDEV) ; 

: 428 0958 5 IF NOT .BBLOCK CACP_UCBCUCBSL_DEVCHAR], DEV$V_MNT] 

; 429 0959 5 OR NOT BLOCK ACP-UCBLUCB$L~DEVCHARJ, DEV$V~FOD] 

7 4 0960 5 OR .BBLOCK CACP_UCBTUCBSL_DEVCHAR], DEVSV_FORJ 

: t33 0962 g THEN EGIN 

; 135 $968 é UNLOCK_I0DB (); 

: 434 t98s ERR EXTT (MOUNS_NOACPDEV) ; 

; t8 096 AQB = sBBLOCK C.ACP ucBCUCBSL VCBJ, VCBSL_AQB); 

: 437 096 IF AGB AQB$B_ACPTYPE) NEQ .TYPE 

: 439 969 6 BEGIN 

: 440 970 6 UNLOCK_I0DB (); 

i 441 971 ERR EXTT (MOUNS_INCOMPACP) ; 

on oe 

+ 445 975 ! Otherwise we use the default ACP (one ACP per class/type). Search the 
3 (44 6 ' system AQB list for a suitable AQB (of the right type and marked system 
; rot e454 } default or right type and class and marked class default). 
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: 449 979 5 

; 450 980 4 ELSE 

; rt 981 BEGIN 

3; 6 $ 9 ¢ AQB = .JOCS$GL_AQBLIST; 

; «45 09 UNTIL .AQB EQC 0 DO 

; 454 984 6 BEGIN 

: 455 985 6 IF .EXESGL_FLAGSCEXESV_MULTACPJ 

; 456 oB8 8 THEN 

; 457 09 BEGIN 

; 458 0988 7 IF .AQBCAQBSY perch Ass 

: 459 0989 7 AND .AQBCAQB$B_ACPTYPE) EQL .TYPE 

: 460 990 7 AND .AQBCAQB$B_CLASS] EQL .CLASS 

; 461 991 7 N 

; re 992 7 EXITLOOP; 

: 46 0995 7 

3 0994 $ ELSE 

; 465 0995 

3 0996 7 IF .AQBCAQBSV_DEFSYS) 

; 467 0997 7 AND .AQBCAQB$B_ACPTYPE] EQL .TYPE 

: 468 0998 7 N 

; 469 0999 7 EXITLOOP; 

: 470 1000 6 ; 

3 «4671 1001 6 AQB = .AQBCAQBSL_LINKI; 

3; 47 1008 5 END; 

3 67 1003 5 IF .AQB EQL 0 THEN CREATE_ACP = 1; 

: 474 1004 4 END; 

; «475 1005 4 : 

; 476 1006 4 ! If we are creating an ACP, now allocate the AQB thereto. Fill in the 
3; 477 1007 4 ! AQB and hook it into the system AQB list. Note that this must be done under 
; 478 1008 4 ! the 1/G database lock since the List is singly Linked. 

3; 479 1009 4! 

: 480 1010 4 

: 481 1011 4 IF .CREATE_ACP 

: 48 ISi¢ 4 THEN 

; 48 101 : BEGIN 

3; 6484 1014 AQB = ALLOCATE_MEM (AQBSC_LENGTH, 0); 

; 485 1015 3 AQBCAGB$B_TYPEJ = DYNSC_AGB; 

3 486 1016 AQBCAQB$B_MNTCNT) = 1; 

; 487 1017 5 AQBLAQB$B_ACPTYPE] = .TYPE; 

: 488 1018 5 

; 489 1019 § IF .STORED_CONTEXT CXQP) 

; 490 1330 HEN 

3; «491 1021 AQB CAQB$V_XQIOPROC] = 1 

=. 1098 on 

: 494 1024 ! Set the CREATING flag to interlock against multiple mounts trying 
; «4495 1025 ! to create the same ACP. This interlock is not necessary when 

3 one 1026 ! creating an AQB for an XQP file system because, for xqps, the 10 database 
; 49 1027 ' mutex is held until the AQB is sone tetely initialized, whereas with 
5 rhs | 8 3 an ACP, the mutex is released while the ACP process is being created. 
; 500 1030 

; 501 1 AQBCAQB$V_CREATING) = 1; 

3 08 } § IF .MOUNT_OPTIONSCOPT_UNIQUEACP) OR .MOUNT_OPTIONSCOPT_FILEACP] 
5 208 1938 AQBCAQB$V_UNIQUE] = 1 
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we fall out of the loop, the AQB we want has been in transition for 


If D p 
10 seconds and is clearly in trouble. 


SSELe 


SS 


ERR_EXIT (MOUNS_AQBT IME); 
END; ! end of block ACP_SEARCH 


P 
00 , 
3 1 ELSE IF .EXESGL_FLAGSCEXESV_MULTACP] 
3 so 1 5 : THEN ~ z 
; 508 1 3 6 BEGIN 
; 509 1 6 AQBLAQB$V_DEFCLASSJ = 1; 
: 310 1040 6 AQBCAQBS$B-CLASS] = .CLASS; 
; $11 1041 END 
: \¢ 1 rk: ELS 
: 13 1043 AQBCAQBS$V_DEFSYS) = 1; 
5 15 1045 AQBCAQBSL_ACPQFL] = AQBCAQBSL_ACPQFL]; 
: 19 ee AQBLAQB$L_ACPQBLJ = AQBLAQB$L_ACPQFLI; 
s $1 + AQBLAQBSL LINK] = .1OCS$GL_AQBCIST; 
; 518 1046 1OC$GL_AQBLIST = .AQB; 
; 519 1049 REAL_AGB = .AQB; 
; 520 1050 5 CLEANUP_FLAGSCCLF_DELAQB) = 1; 
; 521 1051 5 LEAVE ACP_SEARCH; 
She pe 
; 526 1054 ! If we are not creating a new ACP then we have found an AQB to use. Check 
3 Ses 1055 5 ! that it is not in transition. If OK, buae its mount count. Otherwise, 
; 2$8 1328 : } release the 1/0 database mutex, wait a while, and try ail over. 
3 256 1058 5 
3 Sey 1059 4 ELS 
; 530 1060 : BEGIN 
3 33) 1061 IF NOT .AQBCAQB$V_CREATING) 
8 236 1906 5 THEN 
3 3s 1063 6 BEGIN 
; 534 1064 6 AQBCAQBSB_MNTCNT) = .AQBCAQBSB_MNTCNTJ + 1; 
3 339 1065 6 LEAVE ACP_SEARCH; 
3; «(536 1066 5 END; 
s S57 1067 4 END; 
; 538 1068 4 
; 539 1069 4 UNLOCK_IODB (); 
; 540 1070 4 
; 541 1071 4 ! The AQB we want to use is in transition (i.e., it is a new ACP being created). 
3 266 1078 4 ! Since this may or may not be successful, we cannot use it at this time. 
; «54 1075 4 ! Time out and retry. 
3: 544 1074 4! 
3 345 1075 4 
; 546 1076 5 IF SSETIMR (REQIDT = 999, EFN = TIMER_EFN, DAYTIM = UPLIT (-HALF_SECOND, -1)) 
3; «547 1077 4 THEN 
; 548 1078 BEGIN 
3; «4549 1079 SWAITFR (EFN = TIMER_EFN); 
; 550 1080 SCANTIM (REQIDT = 999); 
; 551 1081 SSETEF (EFN = TIMER_EFN); 
3 22¢ 1936 4 END; 
; 55 1083 4 
3; 5546 1084 END; ! end of ACP search retry loop 
3 22? 1082 
; 228 1 
; #558 10 
: 1 
3 1 
3 1 
3; > 10 
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; 563 1093 

> 564 1094 IF NOT .CREATE_ACP 

; 5065 1095 THEN 

; $8 1998 UNLOCK _JODB () 

; 2 109 ELSE IF .AGB CAQB$V_xQIOPROC) 

; 568 1098 THEN 

; §? 1099 BEGIN 

; 0 189 OCAL 

3; $71 1101 CACHE_HDR : REF BBLOCK, 

: 276 1106 LENGTA; 

; 57 11 

3 3r5 1188 CLEANUP_FLAGS CCLF_UNLOCKDB] = 1; 

; 276 1199 AQB CAQB$L_BUFCACHE] = SETUP_BLOCKCACHE (CACHE_STATUS); 

; 578 1108 AQB CAQBS$V_CREATING) = 0; 

; 579 1109 CLEANUP_FLAGS CCLF_DELAQH) = 0; 

; 280 1319 CLEANUP_FLAGS CCLF_UNLOCKDB) = 0; 

; 268 1446 CACHE_HDR = .AQB CAQBSL_BUF CACHE); 

; ene Vie IOCSCVT_DEVNAM (15, CACHE_HDR CF11BCST_CACHENAME] + 1, .UCB, 0; LENGTH); 
; 38 1116 (CACHE_HDR CF1IBCST CACHENAME J) <0, 8> = .LENGTH + 8; 

; 587 1117 CHSMOVE (8, UPLIT BYTE ('XQPCACHE') 

; 288 1118 CACHE_HDR CF11BC$T_CACHENAME] + 1 + .LENGTH); 

; 590 1120 UNLOCK_IODB (); 

; #591 115) ; 

3 236 11 ¢ END 

3 3 112 ELSE 

; 594 Ai§¢ 

; 595 1125 ! Now create the ACP process if needed. Construct the process name from 
; 596 1156 ' the device name and unit in the form ddcuACP; construct the 

; 597 1127 ! ACP file name from the supplied name or the default name in the DDB. 
; 598 1128 ! Note that the ACP file prefix depends upon whether or not a file system 
; 599 16) ! exists for the system disk. Normally, we use ‘SYSSSYSTEM' but when this 
; 600 1130 ! is the mount of the system disk, we use 'CSYSEXE]' since FILEREAD doesn't 
; 601 13) ! do logical name translation. 

3 res 11 ¢ ! 

; 60 113 

; 604 1134 BEGIN 

; 605 1135 

; ps) 11 $ UNLOCK_IODB (); 

; 60 11 

; 608 11 } PROC_NAME 9 = PROCBUF _LEN; 

; 609 11 PROC_NAMEL1] = PROCBUF; 

; 610 1140 ACP_TYPE } = 1; 

> 611 1141 ACP-TYPEL1) = "At - 1 + .TYPE; 

3 ole 1186 

s 6} P 114 $FAO ( 

3: 614 P 1144 DESCRIPTOR ("!AC!UW!AC!AC'), 

3; 6615 P 1145 PRC NAME EOI 

; olg P 168 PROC_NAME 

; 61 P 114 BBLOCK cuCBtucBSt_pDB), DDBS$T_NAME), 

: 618 b 1138 -UCBLUCB$W_UNITJ, 

; 61 P 114 ACP_TYPE, 
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; 620 P 1150 UPLIT BYTE (3, 'ACP') 
3 ? 1 1} 1 ); 
; 6 : 11 : IF_ .EXESGL_FLAGSCEXESV_INIT) 
> 624 1136 THEN 
; 625 1155 4 BEGIN 
3; 6 § 1126 4 FILE_PREF_LEN = XCHARCOUNT ('SYSSSYSTEM:'); 
; (6 13 4 FILE-PREF~= UPLIT BYTE ('SYSSSYSTEM:'); 
; 628 1158 4 END 
; 629 1159 3 ELSE 
; $30 1160 4 BEGIN 
3 631 1161 4 FILE_PREF_LEN = X%CHARCOUNT (*CSYSEXEI"); 
; 6 ¢ 1166 4 FILE-PREF"= UPLIT BYTE (‘CSYSEXE]'); 
3; 6 116 END; 
> 634 1164 
; 635 1165 FILE_NAMEL1) = FILEBUF 
; 636 1166 IF .MOUNT_OPTIONSCOPT_FILEACP) ( 
; 637 116 THEN 
; 638 1168 4 BEGIN : 
; 639 1169 4 FILE _NAMECG] = .ACP_STRINGCO] + .FILE_PREF_LEN; 
; 640 1170 4 CHSCOPY (.FILE_PREF-LEN, FILE PREF, [ACP_STRINGCOJ, .ACP_STRING(1), 
> 641 1171 4 0,~.FILE_NAMECO], FILEBUF); 
; ote 1178 4 END 
3; 64 1173 3 ELSE 
3 644 1174 4 BEGIN 
3 645 1175 4 FILE_NAMECO] = .FILE_PREF_LEN + 11; 
: 646 1176 4 CHSCOPY (.FILE_PREF CEN, 7FILE_PREF, 3, BBLOCK C.UCBCUCBS$L_DDB], DDBSL_ACPD], 
> 647 1177 4 8, UPLIT BYTE (*AACP.EXE') 
: 648 1178 4 0 EILE PREF _LEN+11, FILEBUF); 
: 649 1179 4 IF .MOUNT_OPTIONSCOPT_IS_FILES11B) 
3; 650 1180 4 THEN (FILEBUF+.FILE_PREF-LEN+3)<0,8> = 'B' 
3; 651 1181 3 END; 
: $34 1136 
; 65 118 ! Create a mailbox which will receive the termination message in case the 
: $28 ee ! ACP bombs. The SGETCHN call is used to obtain the mailbox unit number. 
3; 656 1186 
3 657 1187 MAILBOX_CHANNEL = 0; 
; 658 P 1188 STATUS = $CREMBX (CHAN = MAILBOX_ CHANNEL , 
; 659 P 1189 MAXMSG = 3 > 
; 660 P 1190 BUFQUO = 132 ; 
; 661 1191 PROMSK = 3X'FFED'); ! system writable, owner readable 
; 66¢ 1198 IF NOT .STATUS THEN ERR EXIT (STATUS); 
3 oo7 1333 CLEANUP_FLAGSCCLF_DEASSABX) = 1; 
3; 665 P 1195 $GETCHN (CHAN = .MAILBOX CHANNEL 
: 666 1196 PRIBUF = MAILBOX_BESC(O)); 
3; 668 1198 SWAP_FLAG = PRCSM Amite 
; 669 1199 4 IF .ACPSGB_SWAPFLGSC (IF .DEVICE _CHARCDEV$V_SQD)] THEN ACP$V_SWAPMAG 
; 670 1200 4 ELSE IF .AQBCAQBSV_DEFSYS)] OR .AQBCAQBSV_DEFCLASS) 
3 671 1 91 4 OR .MOUNT_OPTTONSCOPT_SYSTEM) THEN ACPS$V_SWAPSYS 
; 676 1 ¢ 4 ELSE IF .MOUNT-OPTIONSCOPT_GROUP] THEN ACP$V_SWAPGRP 
> 67 1203 4 ELSE ACP$V_SWAPPRV 
3 674 1204 ) 
; 675 1205 THEN SWAP_FLAG = 0; 
; 676 1206 


END; 
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677 8 | Sonoute the working set quota for the ACP 

679 0 

680 IF .DEVICE_CHARCDEV$V_SQD] 

681 THEN 

oe gg MEINE SET = 128 ! working set for magtape ACP 

684 GIN 

685 WORKING SET = .ACPSGW_WORKSE(‘; ! working set for disk ACP 

IF .WORRING SET EQL 
687 THEN WORKING_SET = .ACP$GW_MAPCACHE + .ACPSGW_HDRCACHE + -ACP$GW_DIRCACHE + 150; 


! Make a becat copy of the system quate List and append the calculated 
! ACP worki ng set quota to the end of the List. As the system quota List 
3 


' 
' 
may grow, take care to leave room for our custom quota entry. 


695 HSMOVE (MIN ( Ls¢ SYSPQLLEN, (PQL_LENGTH=6)), PQLS$AB_SYSPQL, QUOTA_LIST); 
696 (QUOTA_LIST+PQL$C_SYSPQLLEN)<6,8> = POL$ WSQUOTA; 
697 (QUOTA tet spatse- “Sy SPaLLEN+1) £0, 32> = ,QORKING SET; 
698 (QUOTALIST+PQL$C~SYSPQLLEN+5)<0,8> = POQL$_LISTEND; 
oe for debugging the ACP 
70 P STRNLOG ( LOGNAM = DESCRIPTOR ('ACPSDEBUG_TERMINAL'), 
70 P RSLLEN = TRANSDESC, 
704 = TRANSDESC ); 
706 P STATUS = $CREPRC ( 
707 P PIDADR = ACP_PID, ! get extended pid in local 
708 Pe IMAGE = FILE -NAREEOI, 
709 P RCNAM = PROC ”NAMELO), 
710 Pp QUOTA = eyore List, 
Pp PRVADR = UPLIT~(-1,-1) 
P BASPRI = jAtPsce BASEPRIO, 
Pp MBXUNT = ‘MATL BOK CHARCD188¥ UNIT] : } 
P STSFLG = PLECAG OR PRCSR_ HIBER), ! hibernate immediately 
PUT = TRANSDESC ); '“DEBUG the ACP 
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we srooted the process in the hibernate state because we need to twiddle the PID before it gets put in the 
SCREPRC has put an extended PID in ACP_PID, we need to convert the EPID to an internal PID for the AQB. WwW 
this is done we can wake the ACP. 


PRORIN to so 


CiNKAGE ! put a block around the routine declarations 
ink = A (REGISTER=0) : PRESERVE (1,2,3,4,5) NOTUSED (6,7,8,9,10,11); 
EXTERNAL pout 


XESEPI O1PID gvt ink ADDRESSING MODE, (GENERAL); 
poscAQBst PACPPID EXESEPTD_TO_IPID (.ACP_PID) 


sraius = SWAKE (PIDADR = ACP_PID 
IF NOT .STATUS THEN ERR_EXIT™( coitus): 
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! wake it up using the epid 
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IF NOT .STATUS THEN ERR_EXIT (.STATUS); 


ne —_ _ 


m1 
16-Sep-1984 01:34: VAX-11 Bliss-32 V4.0-742 Pa 14 
10230071384 Magi bs DISKSVMSMASTER: CMOUNT.SRCISTACP.B32; 2 ” (2) 


1264 ! Now wait for the ACP to come up. We do this by sitting in a time out loop ; 

1265 ! waiting for the transition bit in the AQB to clear, and also waiting for > 

: 08 ; @ message on the mailbox in case the ACP dies. ‘ 

1268 ; 

P 1 $? $Q10 ¢ : 

P 1270 CHAN = .MAILBOX CHANNEL, ; 

P 1271 FUNC = 10$ READVBLK, ; 

7 P 1 te EFN = MOUNT_EFN ° 
P 127 108 = JO sTATUS{OI, ; 

7 P 1274 P1 = TERM_BUFFER, ° 
Si e ! Ne ve = TERM_BUFFER_LEN : 
rar 7 SSETEF (EFN = MOUNT_EFN); ; 
P38 i S i IF bere J FROM 60 TO 1 DO ; 
751 1281 5 IF SSETIMR (REQIDT = 999, EFN = TIMER_EFN, DAYTIM = UPLIT (-HALF_SECOND, -1)) ; 
P26 1586 4 THEN : 
75 rH 5 BEGIN : 
754 1284 5 SWAITFR (EFN = TIMER_EFN); : 
755 \¢8? 5 SCANTIM (REQIDT = 999); : 
756 1286 5 SSETEF (EFN = TIMER_EFN); : 
43 1388 4 se 
759 1289 4 IF NOT .AQBCAQB$V_CREATING] . 
ree 1629 ? THEN EXITLOOP 0; ‘ 
76 1638 4 IF .JO_STATUSCO] NEQ 0 : 
fei 1394 § sy 
765 1295 5§ IF NOT .JO_ STATUSCO] THEN ERR_EXIT (.10_STATUS(O)); ; 
766 1296 5 7» _BOFFER<0,16> EQL MSG$_DELPR ; 
rer if 3.44 : THEN ERR_EXIT (, (TERM_BUFFER+4)) ; : 
769 P 19.4 5 $Ql0 ( : 
770 P 1300 5 CHAN = .MAILBOX_ CHANNEL, ; 
771 P1301 5 FUNC = I0$ READVBLK, ‘ 
77 B 1306 5 EFN = MOURT_EFN : 
77 P1303 5 1osB = 10 sTATus(ol, : 
774 P 1304 5 Pi = TERM_BUFFER, . 
4g P 1303 2 me = TERM_BUFFER_LEN . 
77 1307 5 SSETEF (EFN = MOUNT_EFN); F 
778 1308 4 END; : : 
444 139? ? END ! end of ACP wait loop : 
781 1311 4 ! If we time out of the loop, the ACP is hung for some reason (such as that . 
78 1 \¢ 4 ! the image wasn't an ACP). Bomb it and clean up. : : 
1B 134 4° 
785 1315 3 THEN : 
ree 1 16 4 BEGIN : ; ’ : 
78 1317 4 SDELPRC (PIDADR = ACP_PID); ! blow it away using the extended pid : 
788 1 18 4 ERR_EXIT (MOUNS_ACPTIME); : 
789 131 ; END; : 
790 1320 . 


16 b-sep -1984 01:3 VAX-11 Bliss-32 V4.0-742 Page 15 
14- sen-1984 9}; 83 yt DISKSVMSMASTER: CMOUNT.SRCISTACP.B32;2 . 3B 
; jo ! : The ACP is really and truly now up. Dispose of the mailbox. ; 
: 79 1 ; 
3 794 1324 SDASSGN (CHAN = ,MAILBOX_CHANNEL); . 
; #795 1325 CLEANUP “FLAGSE ELE Sete XJ] = 0; ; 
P38 1 § CLEANUP" FLAGSCCLF-DELAQB) = 0; ‘ 
; 79 1 END; ! end of ACP creation a 
; 798 1328 ; 
; 799 1329 3 
3 Boe ! 9 Enable the device and issue the MOUNT Q10. ; 
; 80 1 ¢ 3 
; 80 1 UCBCUCBSV_MOUNTING) = 1; 3 
; Boe : 30 VCBLVCBS$L “AQB) = .AQB; ‘ 
; 806 1336 IF NOT .DEVICE_CHARCDEV$V_SQD] : 
; 807 1337 THEN F 
; 808 1338 BEGIN 3 
; 809 1339 IF oer yg esd el I1S_FILES11B] 3 
; 810 1340 THEN SET_BATAC (.0CB> HOME_BLOCK) 2 
s Bi 1341 3 ELSE FT ~DATACHECK C UCB, 0); 3 
: Bis 1328 ; ; 
3 6814 1344 i To prevent the race condition between a simultaneous mount and a . 
> «815 1345 3 i dismount, ‘‘deallocate’’ the device if this is not a private mount. ; 
; 816 1346 ; i This ensures that the dismount processing in the file system will : 
; 817 1347 i see a consistent 1/0 database, i.e. PID accurately reflects : 
: si8 18 ; how the volume is mounted, even while mount is in progress. ‘ 
; 820 138 4 IF ( NOT .MOUNT_OPTIONS COPT_NOSHARE) ) ! and non-private mounts : 
; 821 1351 4 AND ( .UCB CUCBSC_PIDJ] NEQ 0 J ' and device ‘‘allocated’’, i.e. ; 
3 Hy 1326 3 THEN ! mount is in progress 3 
; 82 1353 4 BEGIN 3 
; 824 1354 4 LOCK_JODB (); ' Lock 1/0 database 3 
; B25 1355 4 UCB Cuces. bina = 0; i "™Deallocate’ the device ; 
; 826 1356 4 BBLOCK C UCB CUCBSL_DEVCHAR], DEV$V_ALL J] = 0; 3 
; 827 1357 4 To Fhchsue RE FC) = UCB CUCB$W_REFC] - 1; ; 
3; 826 1358 4 UNLOCK_IODB (); 3 
: HH 1359 3 END; 3 
; 830 1360 5 
; 831 P 1361 STATUS = DO_IO (CHAN = CHANNEL 3 
; 832 P 1366 FUNC = I1O0$_MOUN : 
; 833 P 136 10SB = 10_STATUS(O) ; 
; «6834 130% F 3 
; «64835 1365 END 3 
; 836 1366 ELSE 3 
; tt 1367 BEGIN 3 
; 38 1368 ! 3 
3 372 1369 Use the Ist device for tapes : 
: Bes 1371 4 am (STATUS = SASSIGN (CHAN = FIRST_CHANNEL, DEVNAM = PHYS_NAME[O))) : 
: rh P 1 ig "STATUS = DO_IO (CHAN = .FIRST CHANNEL, 3 
3; B44 P 1374 NC = JO$_MOONT. ; 
> B45 P 1375 10SB = 10_STaTUS{O) ; 
3 B46 1378 : : 
;  B4 137 SDASSGN (CHAN = .FIRST_CHANNEL); ; 
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: Be 1345 ste 
3 29 1580 ! If the MOUNT QI0 directive fails, just unhook the VCB and drop the mount ; 
; 1 1381 : count in the AQB. If the AQB count goes to zero, wake the ACP who will ‘ 
3 28 1 4 ' clean himself up in the prover manner. This must be done this way to avoid ‘ 
; ez : 7 ; timing windows which could conceivably lose 1/0 packets. : 
o . | ° 
; 855 1385 ; 
; 28 1 56 IF .STATUS THEN STATUS = .JO_STATUS(O]; | ; 
; 85 1387 IF NOT .STATUS : 
; 858 1388 THEN : 
; 522 1389 BEGIN : 
; 860 1390 LOCK I0DB (); | ; 
; 861 1391 UCBCOCB$V_MOUNTING) = 0; ; 
; g0¢ 1 3 UCBCUCBSL_V = 0; : 
; 86 139 AQBCAQB$B_MNTCNT) = .AQBCAQBS$B_MNTCNT) = 1; : 
; 864 1394 : 
; 866 1396 ! We marked the device as ‘‘not allocated’’ prior to issuing | ; 
; 867 1397 : the MOUNT Q10. Now that the Q10 failed, restore the UCB : 
; 868 1398 : to its original state so that the device deallocation : 
; 869 1399 : routine (in module ASSIST) can deallocate this device and ; 
; Bry e's ; release the device Lock. : 
; 6B, 108 & IF ( NOT .MOUNT_OPTIONS COPT_NOSHARE] ) ! For non-private mounts ; 
; 87 14035 3 THEN ; 
> 874 1404 4 BEGIN ; 
; 875 1405 4 UCB CUCBSL_PID) = .CTLS$GL_PCB CPCBSL_PID); ! Re-allocate the device : 
; 876 1606 4 BBLOCK C UCB CUCBSL_DEVCHARJ, DEVS$V_ALL J = 1; : 
; 877 1407 4 UCB CUCBSW_REFC) = [UCB CUCB$w_REFC] + 1; : 
; 878 1408 END; ; 
3; ory 1409 ; 
; 880 1410 UNLOCK _IODB (); ; 
; 881 1411 IF .AQBCAQB$B_MNTCNT] EQL 0 AND NOT .AQB CAQB$V_XQIOPROCI ; 
Be : 
; 884 1414 ! The AQBSL_ACPPID contains an internal pid, we must convert to extended pid to call the : 
; 885 1415 ; ! $WAKE service. : 
; 886 1416 : : 
; 887 1417 4 BEGIN ; 
; 888 1418 4 LINKAGE : 
; 889 1419 4 cvt_lnk = JSB (REGISTER=0) : PRESERVE (1,2,3.4,5) NOTUSED (6,7,8,9,10,11); | 

; 890 1420 4 EXTERNAL ROUTINE 

; ol 1421 4 EXESIPID_TO_ EPID : cvt_lnk ADDRESSING MODE (GENERAL); 

; 14 ¢ & ACP_PID = EXESIPID_ TO_EPID™ (.AQBCAQB$L_ACPPID)); 

; 89 14 & SWARE (PIDADR = ACP_PTD); 

; 894 1424 END; 

; 895 1425 ERR_EXIT (. STATUS); 

; 8% 1426 END; | 

; 897 14 : 

; 898 1428 END; ! end of routine START_ACP 


TITLE STACP | 
"IDENT \v06-001\ | 
.PSECT $PLITS,NOWRT,NOEXE,2 | 

} 
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KSVMSMASTER: CMOUNT.SRCIJSTACP.B32; 2 “ (2); 


FRFFFFFF FFB3B4 9 P.AAA: .LONG 5000000, -1 ; 

45 48 43 41 43 59 j P.AAB: .ASCII \KXQPCACHE\ : 

43 41 21 43 41 21 57 5S 21 43 41 10 P.AAD: ASCII \!ACTUWIACIAC\ : 

at if P.AAC: .LONG 12 3 

0000000' .ADDRESS P.AAD : 

4 P.AAE: .BYTE 3 : 

43 4) 5 eASCII \ACP\ : 

3A 4D 465 «(54 53 59 53 24 23 23 0 § P.AAF: . ASCII \SYSSSYSTEM:\ : 

Sp 4 : 45° 53 53 5B 400033 P.AAG: ASCII \CSYSEXEI\ : 

45 3 45 2€ 50 43 41 41 QO03B P.AAH: .ASCII ACP.EXE\ 3 

49 4D 52 45 56 SF 47 55 42 45 446 26 20 43 41 004 P.AAJ: ASCII \ACPSDEBUG_TERMINAL\ ; 
Baee -BLKB 3 

90000012 0058 P.AAL: .LONG 18 ; 

00000000' 9003¢ sADDRESS P.AAJ : 

FFFFFEFF FFFFFFFF 00060 P.AAK: .LONG <1, - : 

FFFFFFFF FFB3B4CO 00068 P.AAL: .LONG 5000000, - F 


.PSECT $OWNS,NOEXE,2 
00000 OWN_START: 
00000 MAILBOX_CHAR: 

BLKB 
00010 MAILBOX, DESC: 
00018 TERM_BUFFER: 
00020 PROC _NAME : 


8 
00028 PCE naa “BLKB 16 
00038 FILE_NAME: 


-BLKB 
00040 Fh yh -BLKB = 64 
00080 10_STATUS: 


00088 TRANSBUF : 

00098 TRANSDESC: 
.BLKB 

QOOAO OWN_END:.BLKB 0 


PQL$C_SYSPQLLEN 
CACHE. STATUS FIOPED CONTENT 


HYS_NAM H 
MOUNT OPTIONS, CLEANUP_FLAGS 
ANNE 
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TRN ACP$GB"SWAPFLGS 


<u“ 


OFFC 00000 


SE 88 AE 9E 00002 
OOAO = BF 00 6E 00 2C 00006 
00000000" 00 00000 
00000000° 00 10 00 Bn515 
00000000° 00 00000000" 00 °F 0019 
00000000" 00 10 p00 00024 
00000000* 00 00000000' 8 43 00028 
000 CF 1 D0 00036 
50 04 AC 00 000 
34 = AO 08 ac 00 O86 F 
59 3C 00 00044 
00000000G_ EF 9 FB 00047 1$: 
58 04 rt 
51 04 AC 00 0005 
50 ¢8 Ail 00 beoes 
5A 1 AQ 90 00058 
55 38 AI 05 € 44 5 
0000G CF D5 00061 
4F 4 B08 
50 0000G CF D0 0006 
01 04 AO 61 B0g 
ae: 
29 0000G CF 3 ? 
3 0B AO 9A itd 
52 &4 43 9E 00 iM 
50 04 0007F 
of il bat 
56 FC A24 0 rf 2s: 
HE: 
51 6 f oA 
FO 50 8 8 ar 3$: 
frre 9 
90 Or 9 
04 3A AG 05 €0 00097 4$ 


. eee 
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2) VAX-11 Bliss-32 V4.0-742 Page 18. 
: DISKSVMSMASTER:CMOUNT.SRCJSTACP.B32:2 (2). 
ACP$GB_BASEPRIO 
EXE SV MULTACP, EXESV INIT 
ACPS$V-SWAPSYS, ACP$V~SWAPGRP 
ACPSV-SWAPPRV, ACPS$V~SWAPMAG 
LOCK_TODB, UNLOCK OBB 
ALLOTATE_MEM, DEA LOCATE MEM 
SET_DATACHECK, IOC$CVT_DEVNAM 
IOCSSEARCHDEV, BUG UG$_NOTUCBRVT 
SYSSSETIMR, SYSSWAITFR 
SYSSCANTIM, SySsseter 
SYSSFAO, SYS CREMBX x | 
SYSSGETCHN, SYS$TRNLOG 
SYSSCREP EXESEPID. TO_IPID 
SySSUAKE™ §$010 
ta SYSSDAS.GN | 
COMMON_IO, SYSSAS | 
EXESIPID. fo_EPID 
SCODES ,NOWRT,2 | 
eater ACP, Save R2.R3.R4,R5,R6,R7.R8.R9.- 0694 
R15bKS SP ; 
#0, (Sp). 30. #160, OWN_START + 0874 
#16, MAILBOX_DESC : 0875 
MAILBOX x CW MAILBOX_DESC+4 3 baee 
TRASBUF “TRANSDESC*4 : 0878 
CACHE_S + 0879 
ie RO 3 0894 
vCB. 32(RO) : 
; 0897 
#0 "tOcK, ope : 0900 
CREATE > 0902 
UCB EAC + 0904 
40(R1), RO ; 
19¢RQ) CLASS ; 
#5, 56(R1), 7 : 0910 
REAL_RVT ; 0911 
REA RVI RO : 
(ROT, : 
rE RVI g3*0 > 0915 
UBiRd} R2 : 0918 
$ 3 
=4(R2)(JJ, ACP_UCB ; | 
; 0919 
Some R1 ; 
a : 091 
: 092 
<BUGS NOTUCBRVT ! 4> ; 
, S8(ACP_UCB), 5$ : 0925 


| 
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16-58 Been ee Pe ze ht Peete Re Mier Se casrace.e32:0°%* «3s 
FEFF 0009C BUGW : 09 ‘ 
0050. H 3 WORD Bucs NOTUCBRVT!4> : we 
34 Ab OD AO 5$ MOVL 5 (ACP UCB) , RO ; 0928 
i? A 4 AG MOVL 16(RO), AQB s 
15 A Aa CMPB 1 (AaBs , TYPE + 0929 
04 1 AD BEQL $ : 
Fer AF BUGW + 0930 
00 Os B1 .WORD  <BUG$_NOTUCBRVT!4> : 
00cD 31 000B3 68: BRW 20$ + 0910 
00006 a f 086 §: BBC ' { MOUNT_OPTIONS+3, 9$ + 0936 
7 90006 CF 04 E OBF SF: BBS } , MOUNT Get fonss3 8$ : 
76 0006 ct 3 : C5 BBC MOUNT OPTIONS+3, 13$ + 0943 
1 00006 CF i 0c MOVAB nt 3, 8 RING, : 0948 
54 000000006 060 0b 000 MOVL Se aL + 0949 
000000006 9F 16 000D JSB tts ate : 
$e 20 D0 9900 MOVL RO, STATUS : 
ty 1 09 Oe MOVL ace DEVICE, ACP_UCB + 0950 
14 6 E8 OO0E BLBS ST F 095¢ 
000000006 EF FB OO00E6 CALLS #0 UNEOCK. 10DB : 095 
00728094 8F DD OOED PUSHL #75040 : 0956 
000000006 00 1 FB OOOF CALLS #1, \ BS$STOP ; 
9 A Ab 03 £1 OOOFA 10$: BBC #3. 5SB(ACP_UCB), 11$ + 0958 
04 9 Ab 06 £1 OOOFF BBC #6. 57(ACP"UCB). 11$ : 0959 
14 38 Ab E9 00104 BLBC  59¢ACP_UCBY, 12$ : 0960 
000000006 EF 00 FB 00108 11$: CALLS #0 UNC OCK fons : 0963 
00728094 8F DD 0010F PUSHL #75040 + 0964 
000000006 00 01 FB 00115 CALLS #1, LIB$STOP ; 
20 34 Ad DO 0011C 128:  MOVL  S2¢ACP_UCB), RO : 0966 
5 10 Ao b0 0120 MOVL 16(RO)> AQB ; 
oc AC 15 AZ 91 00124 CMPB gt (08S TYPE + 0967 
58 13 00129 BEQL 0$ ; 
000000006 EF 00 FB 001 CALLS #0, UNLOCK, 10DB + 0970 
007280A4 8F DD 001 PUSHL + 0971 
000000006 00 01 FB 001 CALLS #1, LIBSSTOP ; 
42. 11 0013F BRB 20$ > 0943 
57 000000006 9F D0 00141 13$:  MOVL #$a@#IOC$GL_AQBLIST, AQB + 0982 
50 000000006 01 906 EF 00148 EXT2V S*EXESV_MULTACP, #1, @#EXESGL_FLAGS, RO ; 0985 
D3 0151 14%: —‘TSTL hab > 0983 
¢? 1 4 3 BEQL 18$ F 
12 0 €9 00155 BLBC = RO, -15$ + 0988 
A 01 Ft 1 g BBC #1. 20(AQB), 178 ; 
AC 15 AZ 91 001 CMPB 1 {Ag B), TYPE > 0989 
1 fe 1 BNEQ 7$ F 
SA 16 A? 91 001 CMPB é (AQB), CLASS + 0990 
OA 11 001 BRB $ ; 
A? é 3 O16, 15$ BBC #2, 20(AQB), 17$ + 0996 
AC 15 ar 91 16 CMPB 1 (agp), 1 TYPE : 0997 
06 13 174 16$ BEQL 8$ ; 
57 10 AZ 00 00176 178 MOVL § 16(AQB), AQB + 1001 
b3 11 OO17A BRB 14$ ; 0985 
p 17C 18%: TSTL AQB : 100 
3 1 BNEG 20$ ; 
58 DO 00180 19$:  MOVL #1, CREATE_ACP : 
6 8 E 183 208: BLBC = CREATE ACP: 7$ > 1011 
E IC D 001 MOVG 4c8. > 1014 
CF 02 FB 001 CALLS ALLOCATE _MEM ; 
| 
} 
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STACP 16-Sep-1984 01:34: VAX=-11 Bliss-32 V4.0-742 Page 22 
v04-001 12-808- 1382 9 245: 4 DISKSVMSMASTER: CMOUNT. SRCJSTACP.B32:2 > (35 
9 CF 1 00391 38$: BBC #2, MOUNT_OPTIONS+4, 39$ : 1179 
°* 90000000" 0086 42 BF 50 90397 Rove #66. FILEBUF SET Ice. PREF LEN] ; 1180 
00006 cr 4 AO 39$: CLAL MAILBOX, CHANNEL : 1187 
7E FFED F 3 Ab MOVZ2WL #65517, =(SP) : 
7E be i A AB MOVZBL #1 g. =(SP) : 
7E 4 8F 9A OO3AF MOVZBL #132. (SP) ; 
00006 cr F B3 PUSHAB MAILBOX_CHANNEL : 
g D4 0036 CLRL = = (SP) ; 
peeeeee Te HA 09 3 mott: ROY STATE 
05 6— CE ¢ BLBS STATUS, 40$ + 1192 
E DD 003¢ PUSHL STATUS : 
000000006 00 oi EB 003¢ CALLS #1, LIBSSTOP ; 
0000G CF 08 88 i cr 40$: 6156 #8 pfLEANUP. FLAGS : 1193 
00000000' 96 oF 0506 PUSHAB MAILBOX, DESC ; 
00006 CF DD 00% PUSHL  MAILBOX_CHANNEL : 
000000006 00 05 FB 00 ep CALLS #5, SYSSGETCHN ; 
59 04 D0 OO3E MOVL #4. SWAP_FLAG : 1198 
05 00006 CF 5 Fl O3E BBC #5. DEVICE CHAR, 41$ + 1199 
50 006 oA 0033 MOV ZBL S*ACPSV_SWAPMAG, RO ; 
ee a a rae bo 
BS 00006 CF F9 bozpi BLBC § MOUNT_OPTIONS+1, 43$ + 1201 
50 506 1 09409 42$: mov cB. S*ACPSV_SWAPSYS, RO : 1200 
00006 CF 93 00408 43$: STB MOUNT OPTIONS + 1202 
50 006 9A 00411 MOVZBL ScACPSV_SWAPGRP, RO : 
50 006 9A 00416 44$: | MOVZBL S*ACPSV_SWAPPRV, RO : 
02 000000006 9F 20 E 00419 45$: BBC RO paFATPSGB_SWAPFLGS, 46$ ; 1199 
6 0006 CF 05 £1 00423 46$ #5, BEVICE_CHAR, 47$ + 1210 
“ we 58 80 ef oh 004 9 MOVZBL #128, WORKING SET + 1212 
58 000000006 oF 36 04 F 47$: MOVZUL Q¥ACPSGW_WORKSET, WORKING_SET F 1215 
50 000000006 9F 3¢ 04 5 MOVZWL @#ACP$GW_MAPCACHE, RO : 1217 
3 000000006 i ¢ 045 MOV WL @#ACPS$GW-HDRCACHE, R1 : 
i 000000006 9F ic be28 MOVZWL @M#ACP$GW_DIRCACHE, R1 : 
8 0096 C140 5 4 0 MOVAB  150(R1)CROJ, WORKING SET ; 
50 000000006 i D 436 48$: MOVL #POLse SYSPQLLEN, RO + 1225 
000000SE &F 0 DI 4 D cMPL R { Ty 4 : 
50 SE rf A ees MOVZBL #94, RO : 
14 AE 000000006 30 14 + 3 bao 49$: Ah aoora theo aa QUOTA_LIST ; 1226 
30 000000006 ‘ i ot ROVAB POL$C~SYSPOLLEN(RO), RO ; 
01 A0 8 tal MOVL WORKING SET, 1(RO) : 1227 
05 Ao a ibs CLRB = 5(RO) > 1228 
7E 7C 004 CLRQ = =(SP) > 1234 
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000000006 


000000006 


000000006 


oc 


000000006 


000000006 


000000006 
000000006 


000000006 


000000006 


000000006 


10 
000000006 


14 


00000000" 
00000000' 
00006 


03E7 
0000' 


03E7 
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Sep-1 
bss ~Sep-1 


1 
1 
4 Q048A 
F 004 
F 004 
F 0049 
FB 0049 
D4 Q04A 
9 4A 
C Q04A9 
po 480 
A 00486 
9F 0048 
F bee 
F Q04C 
C QO4CA 
9F OO4CC 
oF ett 
9F 004D 
FB 0040 
DO O04E 
E8 O04E 
DD 7k 
FB QO4EA 
DO OO4F1 50S: 
16 Bpere 
DO O04FB 
D4 OO4FF 
oF Bn20) 
FB 00504 
DO 00508 
E8 0050E 
DD 00511 
FB 00515 
7C BeesA 51$: 
7C OO51C 
pp BRes6 
F 00520 
7C 00526 
9F 00528 
DD 005 3 
DD 005 
DD 005 
FB 005 
pe 05 , 
Be 
t bat? 528: 
HS 
DOD : 4 
Fe 6 
E 
DD 6 
FB 6 
Be 
i Hse 
DD 7 


Be 12:08:53 


X-11 $-32 V4.0-742 
SK$V nen TER: CMOUNT. SRCISTACP.B32; p29 
-(SP) 
TRANSDESC 
TRANSDESC 
P.AAI 
46 p} SSTRNLOG 
a3". SWAP_FLAG, =(SP) 
MA : X_CRAR+12, =(SP) 
@#ACP$GB_BASEPRIO, -(SP) 
PROC_NAME 


QuOTR. LIST 


= (SP) 
TRANSDESC 
FILE NAME 


ACP B BID 
*37 1 1+ hand 


STATUS, 50$ 
BIA ATUS 
4, LTBSsTOP 


R 
EXESEPID TO_IPID 
12(AQB)~ 


RO 

Rep) 
ACP_PID 

#2, SYSSWAKE 
RO, STATUS 
STATUS, 51$ 
STATUS 
#1, LIBSSTOP 
-(§P) 

-(SP) 
#8 
TERM_BUFFER 
-(SP 

10. STATUS 
#49 


MAILBOX_ CHANNEL 


Hi , SYS$QI0 
#1, SYSSSETEF 
g 

#998 -(SP) 


-(SP5 
P.AAL 


te SYSSWAITFR 


#999, -(SP) 
’ s SYSSCANTIM 


i YSSSETIMR 
RO. ah 


a 


° 3 


1246 


1248 


; 1259 


; 1261 


; 1262 


1276 


1277 


1881 


1284 
1285 


1286 


] 
2 

1b-56 -1984 2:34:11 VAX-11 Bliss-32 V4.0-742 P 4 

1eaeeea teas Poze ss Peek WALS FERS MbatT Secasrace.032:0°%° «3s 
000000006 00 F 79 CALLS #1, SYSSSETEF ; ; 
78 04 BE 0} éf Q 53$: BBC Ag a4(SP), 59% + 1289 : 
00000000' : i > NOV. JOesTATUS, RO + 1292 : 
09 6 E BLBS RO, 54S * 1295 ; 
DD PUSHL R : ; 
000000006 00 1 FB 3 CALLS #1, LIBSSTOP : : 
00000000' 0 8 si 54$: CMP TERM_BUFFER, #3 + 1296 ; 
00000000' 00 DD 005A PUSHL  TERM_BUFFER+4 * 1297 ; 
000000006 00 1 FB 005A9 CALLS #1, CIB$STOP ; "8 : 
BFE Raps S58: FLAG ee ¢ 198 
3 DD 00584 PUSHL #8 : : 
00000000' 00 9F 00586 PUSHAB TERM_BUFFER ; : 
—E 7C 005BC CLRQ.=(SPY : : 
onooone’ HF Pe Hees SURE ju, staTus : 7 
eonne Fb bugee Bunn AyteON.chame : ; 
000000006 00 Oc FB 05¢¢ CALLS #12, SYS$QIO : : 
000000006 00 st PB babe CALS af: YSSSETEF : 1307 ; 
02 5 Fe 0050C 56$:  SOBGTR J 535 : 1279 : 
03 11 005DF BRB 58s : ; 
FF65 31 005E1 57$: BRW 52$ : 3 
16 AE. BF OOS Oe bhcting ace PID , va 
000000006 00 02 FB 00569 CALLS he “SYS$DELPRC : : 
000000006 00 sich 5 PB pare CALLS a750he04 pet 
000000006 00 Oh PB sort 59: FUSE TUB Chae ‘Bhew 
00006 CF OC BA 00608 BICB2 #12, CLEANUP_FLAGS + 1326 ; 
52 04 AC D0 90600 60$:  MOVL UCB, R + 1333 : 
65 A 02 88 00611 BISB2 #2, 101(R2) : : 
10 20 °F SF BO bogie MOVE AGB’. 16(RO) oe 
5B 0000G CF 05 €0 0619 BBS #5, DEVICE CHAR, 64$ : 1336 ; 
06 00006 CF 02 al 06 BBC #2. MOUNT OPTIONS+4, 61$ : 1339 : 
00006 cr of 06 9 PUSHAB WORE _BLOCR : 1340 ; 
i D4 062F 618: cLRL = (SP) + 1341 ; 
0000G CF 6 F $8 : "CALLS ~=#2, SET_DATACHECK : ; 
1E 00006 CF 4 € 6 r) BBS #4. MOUNT OPTIONS, 63$ : 1350 : 
2c AZ D3 0065 STL 44(R2) ; 1351 3 
000000006 EF 09 FB 0645 CALLS #0, LOCK_IODB > 1354 : 
e 5 bs 64A CLAL R2) > 1355 ; 
3A A 6 8F 8A 64 BICB2 #128, 58(R2) : 1356 ; 
C Ag B7 ; DECW 93 (Ro) : 1357 ; 
000000006 Q FB 6 CALLS #0, UNLOCK_10DB : 1358 : 
PFE Sg ems: ELAR ct Rapes 
7E 7C 666 CLRQ = (SP) : ; 
7E 7C 0066 CLRQ. = (SP) : : 


STACP 
v04-001 


000000006 


000000006 


000000006 


000000006 
000000006 
65 


14 00006 


gf 
4h 
000000006 
1A V6 
10 


000000006 


000000006 
3; Routine Size: 1834 bytes, 


; 899 1429 1 


00 


00 


Routine Base: 


00000000' 99 oF 
DD a 
00006 + DD 
A 0D 
‘i 
1 Se 
14 AE OF 
colts HH SSH 
4 FB 006 
BE 
a. 
E /C 00694 
7E 7c beae 
7E 7C 0069 
7E 7C beer 
00000000' 9 9F 00 H' 
9 DD 006A 
34 AE DD Bneae 
1A DD 006A7 
0¢ FB 006A9 
0 00 Ht 
OC AE 0D 00683 
01 FB 00686 
6— €9 Bees 
00000000" 00 b0O 006C0 
6E €E8 006C7 
00 FB QO6CA 
02 8A 00601 
34 Ad 04 00605 
0B A? 97 006D8 
04 €0 Opeee 
000000006 00 DO 006E1 
60 AQ b0 006E8 
80 8F 88 O06ED 
5C Ad B86 Beers 
00 fe O6F 
OB A? 95 OO6FC 
1F 3 pert 
04 €0 00 a 
oe A? 00 007 
000000006 00 16 QO70A 
0 00 pfi0 
E Be 714 
14 AS F of18 
02 FB Bf 
6E DD 00720 
01 FB 007 § 
04 007 


$CODES + 0000 


bese 
1 ~bep- 


64$: 


65$: 
66$: 


67$: 


68$: 


1 
1 


Be 12:48:35 


PUSHAB 
PUSHL 


VAX-11 Bliss- 


IO_ STATUS 
157 
SOONNEL 


#12, COMMON_IO 
TATUS 


#12, COMMON_I0 
TATUS 


“Dew w- 1 i ti nDRBvnTs oO 
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2.V4.0-742 


DISKSVMSMASTER: CMOUNT. 


#4, MOUNT OPTIONS, 68$ 


CTLSGL_PC 


#0, UNLOCK_10DB 
11 (aQB) 


69$ 

#4, 20(AQB), 69% 

12¢aQB) 

EXESIPIO_TO_EPID 
ACP_PID 


ACP _P1D 
#2, “SYSSWAKE 
STATUS 
#1, LIBSSTOP 


4 p 
SRCISTACP.B32:2 >" 
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35 


1376 
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234: VAX-11 Bliss-32 V4.0-742 Page | ' 

001 : 2:43 DISKSVMSMASTER: CMOUNT.SRCISTACP.B32; 2 . J v 

> 901 1430 1 ROUTINE SETUP_BLOCKCACHE (STATUS) = | ; 
; 806 1431 1 ; 
; 90 1436 1 ++ | : 
; 904 14 1} ; 
3 309 1436 | FUNCTIONAL DESCRIPTION: : 
; 907 14 $ 1! This routine allocates dynamic memory and initializes it for | ; 
; aoe 1? t : use as the block cache for the AQB desired. ; 
; 910 1439 1 ! CALLING SEQUENCE: ; 
; 911 1440 1! | ; 
; 8i§ 1441 1! SETUP_BLOCKCACHE (ARG1) ; 
; 91 1676 1 } ‘ 
> 914 1445 1 ! INPUT PARAMETERS: ‘ 
3; 915 1444 1! . : 
; 916 1445 1! ARG] : Address of a longword to receive the cache ‘ 
; 917 1446 1! allocation status ‘ 
; 918 1447 1! ; 
; 919 1448 1 ! IMPLICIT INPUTS: : 
: 920 1449 1! : 
; 9el 1450 1! None. : 
; os¢ 1451 1! ; 
3 Ge 1326 1 ! IMPLICIT OUTPUTS: ‘ 
; 924 1453 1! : 
; 925 1454 1! ARG] : 1 if the block cache allocated ; 
3 9e6 1455 1! 0 if a reduced block cache is allocated ‘ 
; 927 1456 1! ‘ 
: 928 1457 1 ! ROUTINE VALUE: : 
; 44 1458 1! : ; 
: 930 1459 1! Address of initialized buffer cache. ; 
3 931 1460 ; ! : 
; O36 1461 1 ! SIDE EFFECTS: | : 
3 93 1006 1} : 
> 934 1463 1 !-- | : 
: 935 1464 1 . 
; 936 1465 2 BEGIN : 
: 937 1466 ; 
: 938 1467 MACRO : : 
; 939 1468 QA (SIZE) =_(((SIZE) + 15) AND NOT 15) &%, ! Quad Aiign : 
Py 940 1469 FLNK a 0.388 ie e 
3 941 1470 BLNK = 4,0,32,0 2%; ‘ 
; 308 1471 : 
; 94 1678 BUILTIN INSQUE; : 
° 944 16g } e 
3; 945 1474 EXTERNAL ROUTINE ‘ 
; ae8 1475 ALLOCATE _MEM; : 
; 94 1078 : 
; 948 147 EXTERNAL ; 
; 949 1478 ACP$GW_MAPCACHE : WORD ADDRESSING_MODE (GENERAL), | : 
; 950 1479 ACP$GW_HDRCACHE : WORD ADDRESSING_MODE (GENERAL), : 
: 951 1480 ACP$GW_DIRCACHE : WORD ADLRESSING MODE (GENERAL), ; 
3 326 1? 1 ACP$GW"DINDXCACHE : WORD ADDRESSING_MODE (GENERAL); : 
; 6954 14 § LOCAL : 
3 99 1484 MAP_COUNT, : 
; 956 1485 HDR_COUNT, : 
; Or 1486 DIR_COUNT, : 


V4.0-742 P 7 
:CMOUNT. SRCISTACP.B32;2 > 3} 


] 
; 958 1487 DINDX_COUNT, | 
; 959 1288 BFRCOONT, 
; 960 1489 BUFFER_BYTES, 
; 961 1490 OVRHD_BYTES, 
; 96 1491 TOTAL_BYTES, 
; 96 1638 OMEM, 
3; 964 149 HSHTBLS, 
; 965 1494 INDX, 
; 966 1495 BFRD REF BLOCKVECTOR f  BERDSS BERDDEF -BYTEI. 
; 967 1496 FRL REF BLOCKVECTOR C,BFRL$S_BFRLDEF ,BYTE), 
; 968 1497 CACHE_HDR REF BBLOCK; 
; 969 1498 
; 970 1499 «STATUS = 1; ! Assume succesful allocation 
; 971 1500 @ MAP_COUNT = MAXU (1, .ACPSGW_MAPCACHE); 
; 97 1501 2 HDRICOUNT = MAXU (3, .ACPSGW-HDRCACHE); 
; Pw 1306 DIR COUNT = MAXU (2, .ACP$GW_DIRCACHE); 
; 974 1303 DINBX_COUNT = MAXU (1, .ACPSGW_DINDXCACHE); 
3 38 1202 BFRCOUNT = .MAP_COUNT * .HDR_COUNT + .DIR_COUNT + .DINDX_COUNT; 
; 978 1507 IF .BFRCOUNT GTRU (2°15 = 2) 
; 979 1508 ¢ THEN 
; 980 1509 I 
: «981 1510 P_ COUNT = (2*15/6) = 1; 
; 982 1511 DINBX_COUNT = (2°15/6) = 1; 
; 983 1318 COUNT = ere} - 1; 
3; 984 151 DIR_COUNT = (2*16/6) = 1; 
; 985 1514 3 BFRCOUNT = .MAP_COUNT + .HDR_COUNT + .DIR_COUNT + .DINDX_COUNT; 
; 4986 1515 2 END; 
3 987 1516 
; one aE BUFFER_BYTES = .BFRCOUNT*512; 
; 990 1519 OVRHD_BYTES = QA (F11BC$S_F11BCDEF) ' Overall cache header 
3; 991 1360 + QA (.BFRCOUNT*BFRDSS_BFRDDEF) ! plus descriptors 
; 992 1521 + QA (.BFRCOUNT*BFRL$S_BFRLDEF) ! plus buffer lock blocks 
; 993 15 ¢ + QA (.BFRCOUNT®*2) ' plus LBN hash table 
3 Boe 1 ? + QA (.BFRCOUNT*2); ! plus buffer lock hash table. 
3; 996 1525 ! Add up total POqutenentss plus add 1 page so we can line the buffers 
; 997 1526 ! up on page boundaries. 
; 998 1527 ! 
3; 999 1528 
3 inn 1380 TOTAL_BYTES = .BUFFER_BYTES + .OVRHD_BYTES + 512; 
: 1902 3 1 CACHE_HDR = ALLOCATE_PAGED (.TOTAL_BYTES); ! Allocate cache from paged pool 
3 1004 1338 IF .CACHE_HDR EQL 0 
3; 1005 12e8 THE 
3 1008 12 5 BEGIN | 
; 1008 15 $ ! The full block cache allocation has failed due to insufficient paged 
; Hs 1 3 ; pool. Retry to allocate a reduced block cache with the following: | 
3; 1011 1540 ! MAP_COUNT = 2; 
: 1016 1541 ! —HDR_COUNT = 6; 
3; 101 1206 ! DIR_COUNT = 4; 
3 1014 154 i DINBX_COUNT = 2; | 
| 
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set the proper 


If the reduced block cache is successfully allocated Py - 
s alleca 


status in the argument of this routine. Otherwise, the 
routine will signal an error, and the mount will fail with an ‘‘insuf- 
ficient dynamic memory'’ error. 


AP_COUNT = 3 


DDS SS 
owwvvorsz 
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- 
z 
— 
u 
Se 
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WAWwwrororory at 


| 
3; 1015 1? 4 | 
.. § 1545 
; 1 1546 
; 1018 1547 
3; 1019 1548 
: 1020 1549 
: 1021 1550 
31 : 1551 
s 15 § 
3; 1024 15 UNT = 2 
3 1025 1554 RCOONT = .MAP_COUNT + .HDR_COUNT + .DIR_COUNT + .DINDX_COUNT; 
31 $ 1555 FFER_BYTES = sBERC UNT #5125 
: 1 1556 4 RHD_BYTES = QA (F11BC$S_FIIBCDEF) ' Overall cache header 
; 1028 1557 4 + QA (.BFRCOURT*BFRD$S_BFRDDEF) ! plus descriptor 
; 1029 1558 4 + QA (,BFRCOUNT*BFRLSS_BFRLDEF) ! plus buffer lock blocks 
; 1030 1559 4 + QA (.BFRCOUNT*2) ' plus LBN hash table 
; 1031 1560 + QA (.BFRCOUNT*2); ! pve buffer lock hash table. 
31 é 1561 TOTAL_BYTES = .BUFFER BYTES + .OVRHD_BYTES + Sle; 
; 103 1366 CACHE-HDR = ALLOCATE_MEM (.TOTAL_BYTES,1); ! Allocate cache from paged pool 
: 1034 156 .STATOS = 0; ' Set reduced cache status 
1086 1268 wns 
: i 4 1366 CACHE_HDR CF11BC$L_REALSIZE) = .(CACHE_HDR CF11BC$W_SIZEJ)<0,32>; 
: 1039 L 1568 2 XIF F11BCS$K_NUM_POOLS NEQ 4 
: 1040 U 1569 ZTHEN ZWARN (‘Bad pool count constant'); 
> 1041 1570 2 %FI 
; 1048 1571 
Wee Tate vec 
+ 1045 1574 3 BIND 
: 1046 1575 POOL_LRU = CACHE_HDR CF11BC$Q_POOL_LRU] : BLOCKVECTOR C,8,BYTE] 
+ 1047 1576 POOL WAITQ = CACHE-HDR CF11BC$Q~POOL Wal Tal : BLOCKVECTOR C.8,BYTE), 
> 1048 1577 POOLENT = CACHE-HDR CF11BC$W~POOLENT) : VECTOR C,WORDJ, 
: 1049 1378 POOLAVAIL = CACHE-HDR CF11BC$L-POOLAVAIL) : VECTOR; 
: 1051 1580 3 POOLCNT [0] = POOLAVAIL [0] = .MAP_COUNT; 
: 105¢ 1581 POOLCNT (1) = POOLAVAIL [1] = .DIR“COUNT; 
: 105 138¢ POOLCNT é = POOLAVAIL é = ,HDR~COUNT; 
; 1038 1383 POOLCNT = POOLAVAIL = .DINBX_COUNT; 
: 1056 1385 CACHE_HDR CF11BC$W_BFRCNT) = .BFRCOUNT; 
: 1058 1 CACHE_HDR [F11 SIZE] = F11BC$S_F11IBCDEF; 
: 1059 1385 CACHE-HDR EPIBESB TYPE = DYNSC_PGD; 
: 1060 1389 CACHE-HDR CF11BC$B~SUBTYPE] = DYNSC_PGD_F11BC; 
: 1068 1391 EOMEM = (.CACHE_HDR + .CACHE_HDR CF11BCSL_REALSIZEJ) AND NOT 511; 
: 1064 1398 CACHE_HDR CF11BC$L_BUFBASE) = .EOMEM - .BUFFER_BYTES; 
3 1065 1394 CACHE-HDR CFI1IBC$L~BUFSIZE) = .BUFFER_BYTES; 
; 1967 1396 BFRD = (CACHE_HDR CF11BC$L_BFRDBAS] = QA (.CACHE_HDR + F11BCS$S_F11BCDEF)); | 
; 1068 1398 BFRL = (CACHE_HDR CF11BC$L_BFRLDBAS) = QA (.BFRD + .BFRCOUNT*BFRDS$S_BFRDDEF)); 
: 1071 1600 3 HSHTBLS = .BFRL + .BFRCUUNT*BFRLS$S_BFRLDEF; 
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: 1 Lf; 19 1 CACHE _HDR aH L_LBNHSHBAS] = .HSHTBLS; 
3 : 6, 19 § CACHE HDR LF11BC$WLULBNHSHCNT) = (.CACHE_HDR CF11BCSL_BUFBASE] - .HSHTBLS)/4; 
; 1075 1604 CACHE_HDR CF1IBCSL_BLHSHBAS) = .CACHE_HOR CF11BC$L_LBNHSHBAS) 
; 1976 1605 + , CACHE HDR peiiec W LENASHENTI*2; 
g re 1906 CACHE_HDR CF11BC$W_BLHSHCNT) = .CACHE_HDR CF11BC$W_LBAHSHCNT); | 
: 1079 1608 ' Run through all the buffer Goncriprors and Link them into the appropriate 
; 1080 1609 ! pool, noting in each descriptor which pool it belongs to. 
; 1081 1610 ! 
: 1082 1611 | 
; 108 191¢ CACHE_HOR CF11BC$W_FREEBFRLJ = 1; 
> 1084 161 
3; 1085 1614 INDX = 0; 
3; 1086 1615 
; 1087 1616 INCR POOL FROM 0 TO 3 
; 1088 161 dO 
: 1089 1618 4 BEGIN 
: 1090 1619 4 
3; 1091 1620 4 POOL_LRU (.POOL, FLNKJ = POOL_LRU C.POOL, FLNK]; 
3 94 Ms 1 : POOL_LRU [.POOL, BLNXJ = POOL_LRU C.POOL, FLNKI; 
3; 1094 1858 4 POOL_WAITQ (.POOL, -LN®? = POOL_WAITQ [.POOL, FLNK]; 
3 a4 lost ? POOL_WAITQ C.POO'., BLNK] = POOL_WAITQ C.POOL, FLNKJ; 
3; 1097 1626 4 INCR I FRO™ v TO .POOLCNT C.POOL) - 1 
; 1098 1627 4&4 dO 
3 1099 1628 5 BEGIN 
; 1100 1629 5 INSQUE (BFRD C.INDX, BFRDSL_QFLJ, .POOL_LRU C.POOL, BLNK)); 
: 1101 1630 5 BFRD L.INDX, BFRD$V_POOL] = . & 
g 1108 1631 § BFRL C.INDX, BFRLSW_NXTBFRL) = .INDX + 2; 
3 110 1638 5 INDX = .INDX + 1; 
3 1104 1635 4 END; 
3 1105 1634 END; 
3; 1106 1635 
3 1107 1636 BFRL C.INDX-1, BFRLSW_NXTBFRL) = 0; 
: 1108 1637 
3 1109 1638 . CACHE_HDR 
3: 1110 1639 
3 1111 1640 END 
3 1112 1641 1 END; 
| 


.EXTRN ACP$GW_DINDXCACHE 
O7FC 00000 SETUP_BLOCKCACHE: 
WORD 


a Save R2,R3,R4,R5,R6,R7,R8,R9O,R1I0 : 1430 
BC 1 20 0002 MOVL #1, aSTATUS + 1499 
0 000000006 9 0 06 MOVZ2WL ACPSGW_MAPCACHE, RO > 1500 
1 0 D BNEQ ~=s'1$ ; 
50 1D OF VL F ; 
p Ng 1$: MOVL RO, MAP_COUNT ; 
0 000000006 C 0001 MOVZWL ACPSGy_ADRCACHE. RO > 1501 
ai 1¢ CMPW ORO, ; 
‘ OF BGEQU 2 ; 
50 D 21 MOVL #3, RO ; 
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A 
a0 000000006 
; 000000006 
§ 
50 ; 
52 ° 
OOOOFFFE 8F 
55 AAQ 
58 AAY 
5A 554 
59 5554 
50 55 
50 
52 50 
56 5 
51 5 
5 OF 
5 
51 52 
2} 
1 
50 53 
53 2§ 
5 
53 
50 
54 00D0 
57 0200 
0000v CF 


3 
1§- -Sep- 34: VAX-11 Bliss-32 V4.0-742 
14- ~hen- 198 93:3 45: tf DISK KSVMGR TER: CMOUNT. SRCJSTACP.B32; 539 
0 4 2%: MOV RO, HDR_COUNT 
Bc 7 MOVIWL A 6$Gw_BIRCACHE, RO 
2 : CMP a0, #2 
BGEQU 3 
D 3 MOVL ‘ 
6 3$: MOVL RO, DIR_COUNT 
MOVZWL ACPSGU_DINDXCACHE, RO 
4 BNEQ 
D 4 MOVL i. RO 
DO 00045 4$: MOVL_ RO, DINDX_COUNT 
¢ 48 ADDL3 HDR_COUNT; MAP_COUNT, RO 
EP obec 3 | Le 
D1 00053 CMPL BERCOONT, resese 
1B 0005A BLEGU 5$ 
C 905¢ MOVZWL #10921, P_COUNT 
C 00061 MOVZWL #10921, DINBX_COUNT 
C 00066 MOVZWL A ee bR_COUNT 
C 000 MOVZ2WL #21844 OUNT 
ti 00070 ADDL3 HDR_ COUNT, Raa COUNT, RO 
CO 00074 ADDL2 DIR™ cou 0- 
4 0077 ADDL DINDX OuaT RO, BFRCOUNT 
8 0078 5$ ASHL = #9, BFRcOUNt BUFFER_BYTES 
78 0007F ASHL #5, BFRCOUNT, R1 
9E 00083 MOV 15(R1) 
BA 0087 BICB2 #15, R$ 
8 008A ASHL #4, BFRCOUNT, R1 
CO OO08BE ADDL2 #15, RI 
BR 90091 BICB2 «#15; RI 
ci 0094 ADDL RI. R3, RO 
8 00098 ASHL BFRCOUNT, R3 
£0 0009¢ ADDL nH, “ 
6 00K? Boers RS. RG 
9E a00A5 MOVAB th Rg )CROJ, OVRHD_BYTES 
9 OOAB MOVAB CovRHD D BYTES) LBOFFER_ BYTES), 
FB 00083 CALLS rae OCATE _PAGED 
dS 00088 TSTL th vet “HOR 
12 OOOBA BNEG © 6$ 
dO 000BC MOVL #2, MAP_COUNT 
D O0BF MOVL #6, HOR” “COUNT 
DO 000C MOVL #4. DIRTCOUNT 
n) Boe MOVL #2. DINBX _COUNT 
C ¢ ADDL3. HDR_COUNT; MAP_COUNT, R1 
CO 000CC ADDL DIR” COUNT, 
cl CF ADDL DINDX COUNT, R1, BFRCOUNT 
: D3 ASHL  BERCOUNT BUFFER_BYTES 
78 0000 ASHL BFR 1 
€ 00008 MOV ut R 
A 000DF BICB2 #15, 
8 £2 ASHL = #4 *BFRCOUNT, R1 
¢ ES ADDL i). R1 
A 000E BICB a RI 
¢ EC ADDL2 R3, RI 
EF ASHL #1. BFRCOUNT, R3 
C F3 ADDL2 = #15, R3 
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16-Sep-1984 0: 34:4] VAX-11 Bliss-32 V4.0-742 ed . 
14-Sep-1984 12:45: DISKSVMSMASTER: CMOUNT. SRCJSTACP.B32; 539 (3) 

3 Of BA F6 BICB2 #15, R3 ; : 
1 ; £0 F ADDL2 R3, R : | ; 
4 9900 C34 E F MOV é (R3)CR1], OVRHD_BYTES + 1560 ; 
7 00 (446 9E 001 MOV 12(OVRHD_BYTES)(BOFFER_BYTES], TOTAL_BYTES : 1561. ; 
DD 001 PUSHL #1 + 1562. : 
DD OO010A PUSHL TOTAL BYTES : ; 
00006 CF 2 FB 0010C CALLS @# TACLOCATE _MEM ; ; 
4 BC D4 00117 CLRAL STA : 1563) ; 
Oc ad AO 00 00114 6$ MOVL ( ACHE HOR? , , 12CGACnE _HOR) : 1366 | : 
24 AO 9E 00119 MOVAB : (CACRE_H : 1577) 
1 6 A 11D MOVAB 1 g (CACHES woh) At : 1578) ; 
61 D0 00121 VL MAP_C DR) + 1580 ; 
64 : 124 MOV MAP“COUNT. R4) : | : 
04 Al 9 7D 00127 MOV  DIR-COUNT. 4(R1) + 1581 ; 
02 AG 9 BO 00128 MOVW  DIRTCOUNT, 2(R4) : ; 
04 Ab AB 4 F MOVW  HDR-COUNT, 4(R4) : 1582 3 
OC Al DO 001 3 VL DIN X_COUNT, 12(R1) : 158 ; 
06 Ab BO 001 MOV) DINDX™ COUNT 6(R4) : ; 
16 AO BO 00138 MOVW  BFRCO 26 (CACHE _HD + 1585 ; 
08 a0 016600046 BF DO 0013F MOVL #2346 084, (CACHE ~ : 1587 ; 
29 ores Ad cl aoi4¢ gicug } (CACHE HD HDR), CHE SHOR OHOR, R1 3 131 : 
51 HA C3 00151 SUBL3 BUFFER byt ES, EOMEM, (CACHE_HDR) ; 1593) : 
04 AO 56 D0 00155 MOVL UFFERB YTES, 4 (CACHE _HDR) : 1594 | : 
51 0003 CO 9€ 00159 MOVAB 11(ROS, : 1596 : 
51 F 8A 0015E BICB2 #15, RI : | ; 
18 AO 1 D 90161 MOVL 1, 24(CACHE_HDR) : ; 
52 1 p 0165 MOVL R1, BFRD : 3 
52 05 00168 ASHL = #5 aber OUNT, R3 + 1598 | ; 
31 OF A346 QE O16¢ HOVAB 15(R3)(BFRDJ, Ri : ; 
1 OF 8A 00171 BICB2 #15, R1 : ; 
1 OA 51 D0 00174 MOVL 1, 28(CACHE_HDR) : ; 
5 51 DO 00178 MOVL 1. BFRL : ; 
5 19 C4 00178 MULL #6, R2 : 1600 ; 
5 53 C1 O17 ADDL FRL, R2, HSHTBLS : ; 
10 A 51 00 0018 MOVL BSHTBLS. 1B CACHE HDR) | > 1601 ; 
60 51 0186 SUBL 3 HSHTBLS, (CACHE_HOR), : 1602 F 
51 04 ¢ 18A DIVL3 #4, R : ; 
16 AO : 0 001 3 VW Re 20(CACHE_HDR) : ; 
51 16 AO 3C 0019 MOVZ2WL 20(CACHE_HDRJ, R1 > 1605 F 
0 A 10 8041 0196 VAW @16(CACHE HDRSCR1], 32(CACHE_HDR) : ; 
4 A 14 Aad B O19¢ VW 20ch ACHE -AD Ab R) paeecat CHE_HDR)~ : 16 ; 
6 Ad 1 1A1 MOVW i. (CACHE _ > 161 : 
1 7C¢ 1A3 CLRO INbx > 1614. ; 
55 28 nose : 1A7 7$: MOVAQ a essen RS : 1620. F 
6§ 5 p 1AC MOVL ( : ; 
2c Aoke F OOIAF PUSHAQ 44(CACHE_HDR)CPOOL) + 1621 ; 
2 5 0 183 MOVL RS, a(SPy+ 3 3 
5 48 A04 3 1B6 MOVAG 72(CACHE_HDR)CPOOL), RS : 1623 : 
65 5 p 1BB MOVL RS, ( ; 3 
4C A042 7F 0018 PUSHAQ 76(CACHE HOR) CPOOL J > 1624 ; 
9 5 po 1C MOVL ; ; 
6442 3C O0IC MOVZuL (R4)CPOOL], RB > 1626 | ; 
ce 1€9 MNEGL #1, I ; | : 
1€¢ BRB 9 ; : 
51 78 Ice oo ASHL #5, INDX, RS ; 1629 | ; 
59 2c A042 7E 0010 MOVAG  44(CACHE-HDR)CPOOL], RO ; ; 


] 
3 
STACP 16- Sep-1984 01:34: VAX-11 Bliss-32 V4.0-742 Page 32 
v04-001 1 ~8ep-19 4 ON: Feit DISKSVMSMASTER: [MOUNT SRCISTACP.B32:2 > ay 
00 89 6546 QF 00107 INSQUE {RS)[BFRD], a0(R9) gle 
5 1 1D ASHL as NDX, : 1630. 
18 A546 : : f 1E INSV POOL #0, , 24(R5)CBFRDI ; 
iE ASHL Nox + 1631. 
6543 9F OO1EB PUSHAB R$) BRI : 
9E 51 Al TEE ADDW3 #2, INDX, a(SP)+ ; 
D6 OO1F INCL THbX : 1632 
D6 57 F2 OO1FS 9 AOBLSS RB. BS + 1626 
2 03 F3 001F8 AOBL EG #3. POOL, 7$ + 1616 
51 1 g4 1FC MULL2 #16, R1 + 1636 
FO A143 SF OOTFF PUSHAB -16(R1)CBFRLJ : 
9E Bs 00203 CLRW = a(SP)+ ; 
4 RET + 1641 


; 1113 1642 1 
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3 
§-sep-1984 OF Fei tt VAX-11 Bliss-32 V4.0-742 


1 - 
14-Sep- DISKSVMSMASTER: CMOUNT.SRCISTACP.B32; 
| 


BEGIN nested block to avoid scope conflicts 
GLOBAL REGISTER 

SIZE = 1, ! rouneee up allocation size 

ADDRESS = 2: REF VECTOR C,WORDJ; ! address returned by exec routines 
EXTERNAL ROUTINE 

EXESALOPAGED : EXE_ALLOCO ADDRESSING_MODE (ABSOLUTE); 


! Simply compute the size needed rounded up to the next quadword and call the 
appropriate exec allocation routine. 

SIZE = .SIZE_NEEDED; 

STATUS = EXESALOPAGED (); 

Copy the block size and address into locals to dodge the MOVC5. 
BLOCK_SIZE = .SIZE; 

BLOCK_ADDRESS = .ADDPESS; 

END; 

IF wor - STATUS 

RETURN 0; 

CHSFILL (0, .BLOCK_SIZE, .BLOCK_ADDRESS); 


(,BLOCK_ADDRESS + 8) = .BLOCK_SIZE; 
RETURN .BLOCK_ADDRESS; 


=POPINININININININVINI WW AANA NNN WII 
_) 


END; ! end of routine ALLOCATE_MEM 
.EXTRN EXESALOPAGED 
OFFC 00000 ALLOCATE_PAGED: 
“WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
51 04 AC dO 00002 MOVL SIZE_NEEDED, SIZE 
000000006 9F 16 00006 JSB a#E XESALOPAGED 
57 21 D 990¢ MOVL SIZE, BLOCK SIZE 
56 2 DO O000F MOVL § ADDRESS, BLOCK_ADDRESS 
OE s E 0012 BLBC STATUS 
00 6E 00 C 0015 MOVCS #0, (SP), #0, BLOCK_SIZE, (BLOCK_ADDRESS) 
08 Ab 27 DO 0001B MOVL § BLOCK_SIZE, 8(BLOCK_ADDRESS) 
50 6 DO 0001F MOVL § BLOCKADDRESS, RO 
04 000 : RET 
50 D4 0023 1$: CLRL = RO 
4 00025 RET 


38 bytes, Routine Base: $fODE$ + 0930 
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~-EXTRN LIBSSTOP 


Attributes 
RD ,NOEXE,NOSHR, LCL, REL, CON IC ,ALIGN(2) 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD , EXE,NOSHR, LCL, RE CON IC ,ALIGN(2) 


Symbols -------- Pages Processing 
Loaded Percent Mapped i ime 

100 0 1000 00:02.0 
IERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STACP/OBJ=OBJ$:STACP MSRC$:STACP/UPDATE=(ENHS$: STACP) 


STACP 

v04-001 

3 3 17 

: 1307 1735 1 END 

; 1208 1736 0 ELUDOM 

PSECT SUMMARY 

; Name Bytes 

: SOWNS 160 NOVEC, WRT, 
> $PLITS 112 NOVEC.NOWRT, 
: SCODES 2390 NOVEC.NOWRT, 
; Library Statistics 
ees or 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 

: COMMAND QUALIF 
; prec: 


pkey tee: 
Lines/CPU Min: 


2390 code,* 272 data bytes 
01:57.6 


064 
Lexemes/CPU-Min: 23705 


meee Meng C 
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